home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / DIAL5853.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  60 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  ife "dT||!%telno" fail;ife r nolog close;kill
  6.  ena -dfEKS!abcilnptuvwzZ ha both
  7.  display stat=off noinhibit nodumb vt100 8bit;lput \r\n
  8.  ph0 pt4 z pp50 pt100 pB2 set blankfill " " sets s9 %telno
  9.  pat;pat 0 ERROR;pat 1 BUSY;pat 2 "NO DIAL TONE";pat 3 "INCOMING RING"
  10.  pat 4 ABORT;pat 5 "NO ANSWER";pat 6 "NO CARRIER"
  11.  pat 7 VOICE;pat 8 UNSUCCESSFUL
  12.  pat 10c CONNECT "@pat 12l OK"
  13.  pat 11c "NO ECL" "@pat 12l OK"
  14.  pat 13c " 1200" "@estimate 0 1200"
  15.  pat 14c " 2400" "@estimate 0 2400"
  16. next:
  17.  bye;speed 4800;estimate 0 300;pat 12c "";split s9 + "";sets s9 %z1 split z0 "." ""
  18.  set z2 DN;if %z1&&Jz1,mM set z2 DE
  19.  put "\016\336%z2 %mprefix%z0\&%msuffix"
  20.  pf60 wait -f60;if 12 sets telno %z0 pf30 display nostat=off;cls;queue delete;ki create -+ %n9/ZC%d%ano.LOG;return
  21.  if 1||2||3 ife %s9 goback next;pi45 pat;bye;fail
  22.  pi0 set telno "" queue delete;pat;bye;fail
  23. init:
  24.  set msuffix ";TR 0\r" set onexit
  25. @ife r nolog closerx;ife t nolog closetx;ife !c putw \016\336IN\r
  26.  ife c return;bye; display stat=off;speed 4800 ena -8g;handshake both
  27.  pat; pat 0 "OK";pat 1i "ERROR";put "\r\016\336IN\rATZ\r";wait -f15
  28.  pat;pat 0 IBM;put "\336START\r";wait -f15
  29.  pat;pat 0 OK;put "\016\336OP 1=0;OP 5=0;OP 15=0;OP 16=2;OP 27=6\r";wait -f15
  30.  pat;pat 0 OK;put "\016\336FO 5;AE;BC 1;FD 3;FM 0\r";wait -f15
  31.  pat;return
  32.  :
  33.  : DIP switches for IBM 5853 modems:
  34.  :
  35.  :  1 - Up      Accept non-MNP connections
  36.  :  2 - Up      Do not loose config when DTR is dropped
  37.  :  3 - Down    Do not send XON/XOFF
  38.  :  4 - Up      Buffer data only if speed 4800 or speed 9600
  39.  :  5 - Down    Use RTS/CTS flow control
  40.  :  6 - Up      Carrier detect follows signal
  41.  :  7 - Up      Use RTS/CTS flow control
  42.  :  8 - Up      DSR indicates phone connection(as per EIA RS232C)
  43.  :
  44.  : Note: front panel buttons should all be 'out'
  45.  :
  46.  :Command   Description
  47.  :--------  --------------------------------------------------------
  48.  : START    Place modem into IBM Command Mode
  49.  : OP 1=0   Turn off speaker. OP 1=1 would listen to modem dialing.
  50.  : OP 5=0   Make no attempt to recognize voice
  51.  : OP 15=0  Do not answer the phone without being asked
  52.  : OP 16=2  Wait two rings for answer when dialing out
  53.  : OP 27=6  DTE(port) speed defaults to 4800
  54.  : FO 5     DTE(port) defaults to 8N1
  55.  : AE       Accept MNP call if told to answer the phone
  56.  : BC 1     Break should purge buffers and be passed through
  57.  : FD 3     Use RTS/CTS flow control
  58.  : FM 0     Modem does not emit or swallow XON/XOFF characters
  59.  :
  60.